home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU15.ARC / LINE / PROG LINKER (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  624 b   |  11 lines
  1. 0 POKE53281,1:DEFFNA(FB)=PEEK(FB)+256*PEEK(FB+1):SB=PEEK(43)+256*PEEK(44)
  2. 1 BL=SB:E(1)=FNA(BL):INPUT"[151]FIRST LINE (-1 TO QUIT)";FL:IFFL<-.5THENEND
  3. 2 LN=FNA(BL+2):IFLN><FLTHENBL=E(1):E(1)=FNA(E(1)):GOTO2
  4. 3 POKEBL,PEEK(E(1)):POKEBL+1,PEEK(E(1)+1):FORI=0TO3:POKEI+E(1),127:NEXT
  5. 4 POKEE(1)-1,58:GOTO1:TIM BOWKER, 525 LOHNES DR., FAIRBORN, OHIO  45324
  6. 5 SL%=PEEK(45):SH%=PEEK(46):IFSL%<1.5THEN:SH%=SH%-1:SL%=SL%+256
  7. 6 SL%=SL%-2:POKE43,SL%:POKE44,SH%:PRINT"POKE43,1:POKE44,8:"
  8. 7 PRINT"'LOAD' PROGRAM TO LINK; 2-EXECUTE ABOVE  LINE (POKES); 3-'RUN'":END
  9. 8 ** 'RUN 5' TO MERGE PROGRAMS. LINK TO  'IF' STATEMENT LINES WITH CAUTION !!
  10. 9 HIT 'RETURN' OVER LINES TO ELIMINATE   "[223][223][223][223]" -- NO NEED TO 'DELETE'  !! ***
  11.